home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / DISKSEARCH.ARC / SRCH DSK 7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  953 b   |  47 lines
  1. 10 ;SRCH DSK 7
  2. 11 ;
  3. 12 ;CONVERT HEX TO ASCII FOR SCREEN
  4. 13 ;
  5. 20 PRNTDATA LDA TRK;EXAMPLE TRK #$1B (27 ASCII)
  6. 30 JSR HEX
  7. 40 LDA TEMP
  8. 50 STA TRKLO;HOLDS A ASCII 31 (1)
  9. 60 LDA TEMP+1
  10. 70 STA TRKHI;HOLDS A ASCII 42 (B)
  11. 80 LDA SEC
  12. 90 JSR HEX
  13. 100 LDA TEMP
  14. 110 STA SECLO
  15. 120 LDA TEMP+1
  16. 130 STA SECHI
  17. 140 JMP SCRN
  18. 150 HEX STA TEMP+1; #$1B 00011011
  19. 160 AND #$F0;            11110000
  20. 161 ;EQUALS              00010000
  21. 165 LSR;                 00001000
  22. 170 LSR;                 00000100
  23. 171 LSR;                 00000010
  24. 172 LSR;                 00000001
  25. 180 ADC #$30;= 31 ASCII = 1
  26. 190 STA TEMP
  27. 200 LDA TEMP+1;#$1B      00011011
  28. 220 AND #$0F;            00001111
  29. 225 ;EQUALS #$0B         00001011
  30. 230 CMP #$0A
  31. 240 BCC UNDER
  32. 250 CLC
  33. 260 ADC #$07;NOW EQUALS #$12
  34. 270 UNDER CLC
  35. 280 ADC #$30;NOW EQUALS #$42 (B IN ASCII)
  36. 290 STA TEMP+1
  37. 300 RTS
  38. 310 SCRN LDY #$00
  39. 320 LP7 LDA DATA,Y
  40. 330 CMP #$00
  41. 340 BEQ ENDPRT
  42. 350 JSR PRINT
  43. 355 INY
  44. 360 JMP LP7
  45. 370 ENDPRT JMP INCR
  46. 380 .FILE SRCH DSK 8
  47.